﻿Public Class frmAbout

    Private Sub frmAbout_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lblAppTitle.Text = My.Application.Info.Title
        lblProduct.Text = My.Application.Info.ProductName
        lblVersion.Text = My.Application.Info.Version.ToString
        lblRelease.Text = VInfo
        lblAuthor.Text = My.Application.Info.CompanyName
        lblPath.Text = Reflection.Assembly.GetCallingAssembly().Location
        rtbLicense.Rtf = My.Resources.LicenseInfo
        rtbAbout.Rtf = My.Resources.AboutInfo
    End Sub

    Private Sub cmdOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOK.Click
        Me.Close()
    End Sub

    Private Sub picNet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles picNet.Click
        Try : Process.Start("http://msdn2.microsoft.com/en-us/netframework/default.aspx") : Catch : End Try
    End Sub

    Private Sub picĐTools_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles picĐTools.Click
        Try : Process.Start("http://www.codeplex.com/DTools") : Catch : End Try
    End Sub

    Private Sub picIco_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles picIco.Click
        Try : Process.Start("http://www.codeplex.com/DjRjecnik") : Catch : End Try
    End Sub

    Private Sub picCodePlex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles picCodePlex.Click
        Try : Process.Start("http://www.codeplex.com") : Catch : End Try
    End Sub

    Private Sub picVS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles picVS.Click
        Try : Process.Start("http://msdn2.microsoft.com/en-us/vstudio/default.aspx") : Catch : End Try
    End Sub

 
    Private Sub flpVista_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles flpVista.Click
        Try : Process.Start("http://www.microsoft.com/windows/products/windowsxp/default.mspx") : Catch : End Try
    End Sub

    Private Sub flpXP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles flpXP.Click
        Try : Process.Start("http://www.microsoft.com/windows/products/windowsvista/default.mspx") : Catch : End Try
    End Sub

    Private Sub picSQLCE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles picSQLCE.Click
        Try : Process.Start("http://msdn2.microsoft.com/en-us/sql/bb204609.aspx") : Catch : End Try
    End Sub

    Private Sub picXML_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles picXML.Click
        Try : Process.Start("http://www.w3.org/XML/") : Catch : End Try
    End Sub

    Private Sub picMSDNAA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles picMSDNAA.Click
        Try : Process.Start("http://msdn2.microsoft.com/en-us/academic/default.aspx") : Catch : End Try
    End Sub
                       dim dir as sbyte=1
    Private Sub tmrOpa_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrOpa.Tick
        If Me.Opacity < 0.99 AndAlso Me.Opacity > 0.4 Then : Else
            dir *= -1
        End If
        Me.Opacity += dir * 0.01
    End Sub
End Class